'(THIS IS THE UNFASL FOR ((DSK (CLS LSP)) NFCPL LSP)) 
'(ASSEMBLED BY FASLAP /392) 
'(COMPILED BY LISP COMPILER /936 COMAUX /25 PHAS1 /84 MAKLAP /80 INITIA /117) 

;COMPILED ON JANUARY 26, 1987, AT 11:45 PM

;Loading DEFSTRUCT 280
'NODE-RECORD 
	(COMMENT **FASL** 0. (LAP |UNLESS MACRO| SUBR)) 
	(COMMENT **FASL** 33. (LAP |WHEN MACRO| SUBR)) 
	(COMMENT **FASL** 62. (LAP |INCF MACRO| SUBR)) 
	(COMMENT **FASL** 94. (LAP |DECF MACRO| SUBR)) 
	(COMMENT **FASL** 126. (LAP |NODE-RECORD MACRO| SUBR)) 
(COMMENT ****  (LOOP FROM USER FILE #FILE-IN-|DSK:NFCPL.LSP[CLS,LSP]|-71772) 
		being redefined as a MACRO -- definition is pushed onto MACROLIST in function |NODE-RECORD MACRO|)
	(COMMENT **FASL** 151. (LAP |LOOP MACRO| SUBR)) 
	(COMMENT **FASL** 169. (LAP |DOLIST MACRO| SUBR)) 
	(COMMENT **FASL** 240. (LAP UNION SUBR)) 
	(COMMENT **FASL** 263. (LAP |NODE-RECORD-EXISTS MACRO| SUBR)) 
	(COMMENT **FASL** 289. (LAP |FIND-NODE-RECORD MACRO| SUBR)) 
	(COMMENT **FASL** 318. (LAP INIT SUBR)) 
	(COMMENT **FASL** 320. (LAP |DEFCLASS MACRO| SUBR)) 
	(COMMENT **FASL** 474. (LAP RECORD-PARENT-RELATION SUBR)) 
	(COMMENT **FASL** 489. (LAP RECORD-SIBLING-RELATION SUBR)) 
	(COMMENT **FASL** 517. (LAP WALK SUBR)) 
	(COMMENT **FASL** 529. (LAP WALK1 SUBR)) 
	(COMMENT **FASL** 612. (LAP VISIT SUBR)) 
	(COMMENT **FASL** TOTAL =  621. WORDS)